home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / powerd0.06 / modules / diskfont / diskfont.m next >
Text File  |  1999-11-30  |  780b  |  61 lines
  1. MODULE    'exec/nodes',
  2.             'graphics/text'
  3.  
  4. CONST    MAXFONTPATH=$100
  5.  
  6. OBJECT FC
  7.     FileName[256]:CHAR,
  8.     YSize:UWORD,
  9.     Style:CHAR,
  10.     Flags:CHAR
  11.  
  12. OBJECT TFC
  13.     Filename[254]:CHAR,
  14.     TagCount:UWORD,
  15.     YSize:UWORD,
  16.     Style:CHAR,
  17.     Flags:CHAR
  18.  
  19. CONST    FCH_ID=$F00,
  20.         TFCH_ID=$F02,
  21.         OFCH_ID=$F03
  22.  
  23. OBJECT FCH
  24.     FileID:UWORD,
  25.     NumEntries:UWORD
  26.  
  27. CONST    DFH_ID=$F80,
  28.         MAXFONTNAME=$20
  29.  
  30. OBJECT DiskFontHeader
  31.     DF:LN,
  32.     FileID:UWORD,
  33.     Revision:UWORD,
  34.     Segment:LONG,
  35.     Name[32]:CHAR,
  36.     TF:TextFont
  37.  
  38. CONST    DFH_TAGLIST=18,
  39.         AFB_MEMORY=0,
  40.         AFF_MEMORY=1,
  41.         AFB_DISK=1,
  42.         AFF_DISK=2,
  43.         AFB_SCALED=2,
  44.         AFF_SCALED=4,
  45.         AFB_BITMAP=3,
  46.         AFF_BITMAP=8,
  47.         AFB_TAGGED=16,
  48.         AFF_TAGGED=$10000,
  49.         AFF_TTATTR=$10000
  50.  
  51. OBJECT AF
  52.     Type:UWORD,
  53.     Attr:TextAttr
  54.  
  55. OBJECT TAF
  56.     Type:UWORD,
  57.     Attr:TTexTattr
  58.  
  59. OBJECT AFH
  60.     NumEntries:UWORD
  61.